10 REM  MAGIC MENU
20 POKE53280,14:POKE53281,3
30 PRINT"[147]"SPC(13)"[212]IPS & [212]RICKS"
32 PRINTSPC(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
35 PRINT" [215]HAT WOULD YOU LIKE TO DO?"
40 PRINT"  1 ==> [210]UN [196][207][211] [196][201][211][193][194][204][197][210]"
42 PRINT"  2 ==> [210]UN [197][206][196] [198][201][206][196][197][210]"
44 PRINT"  3 ==> [210]UN [206][213][205][194][197][210] [208][201][195][203][197][210]"
46 PRINT"  4 ==> [210]UN [210][197][211][201][211][212][193][206][195][197]"
47 PRINT"  5 ==> [210]UN 64-[193][211][211][197][205][194][204][217]"
48 PRINT"  6 ==> [210]UN 64-[212][193][208][211]"
49 PRINT"  7 ==> [210]ETURN TO [204][207][193][196][211][212][193][210]"
50 GOSUB100:PRINT"[215]HICH? ";
52 POKE198,0:WAIT198,1:GETA$:A=VAL(A$)
54 IFA<1ORA>7THEN52
55 :
60 PRINTA$
62 IFA=1THENF$="DOS DISABLER"
64 IFA=2THENF$="END FINDER"
66 IFA=3THENF$="NUMBER PICKER"
68 IFA=4THENF$="RESISTANCE"
69 IFA=5THENF$="64-ASSEMBLY"
70 IFA=6THENF$="64-TAPS"
71 IFA=7THENF$="HELLO CONNECT":OPEN15,8,15,"R0:STAR=STAR":INPUT#15,ER:CLOSE15
72 :
73 IFA=7ANDER<>63THENEND
80 PRINT"[147]"SPC(11)"[204]OADING PROGRAM..."
82 :
85 PRINT"[159]LOADF$,8":PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
90 :
100 FORX=1TO40:A$=A$+"*":NEXT:A$=LEFT$(A$,40)
110 PRINT"[144]"A$;:FORI=1TO23:PRINT"*"SPC(38)"*";:NEXT:PRINTLEFT$(A$,39)""
120 POKE2023,42:POKE56295,PEEK(55296)
130 RETURN